home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / online / zmime-1.3 / zmime.inst < prev   
Text File  |  1996-06-23  |  3KB  |  146 lines
  1. ; $VER: zmime.install 1.3 (23.6.96) by Ralph Seichter
  2.  
  3. (if (= @language "deutsch")
  4.     (
  5.         (set #select-destdir-prompt
  6.             (cat
  7.                 "Bitte wählen Sie das Verzeichnis, in dem " @app-name
  8.                 " installiert werden soll (Hilfstext beachten). Es wird "
  9.                 "KEIN Verzeichnis erzeugt; das müssen Sie bei Bedarf "
  10.                 "selbst erledigen."
  11.             )
  12.         )
  13.  
  14.         (set #select-destdir-help
  15.             (cat
  16.                 "Geben Sie bitte den vollständigen Pfad an. In diesem "
  17.                 "Verzeichnis werden später die Verzeichnisse 'Rexx' und "
  18.                 "'Catalogs' erzeugt, falls sie das komplette " @app-name
  19.                 "-Paket installieren möchten."
  20.             )
  21.         )
  22.  
  23.         (set #select-install-files-prompt
  24.             (cat
  25.                 "Bitte wählen Sie alle Teile des " @app-name "-Pakets, die "
  26.                 "installiert werden sollen."
  27.             )
  28.         )
  29.  
  30.         (set #sample-config "Beispiel-Konfigurationsdatei")
  31.  
  32.         (set #arexx-scripts "ARexx-Skripten")
  33.  
  34.         (set #german-catalog "Deutschsprachige Katalog-Datei")
  35.  
  36.         (set options-mask -1)
  37.     )
  38. )
  39.  
  40. (if (= @language "english")
  41.     (
  42.         (set #select-destdir-prompt
  43.             (cat
  44.                 "Please select the directory in which " @app-name " shall be "
  45.                 "installed (see help text). A directory will NOT be created; "
  46.                 "you need to make that yourself, if you wish."
  47.             )
  48.         )
  49.  
  50.         (set #select-destdir-help
  51.             (cat
  52.                 "Please specify the full destination path name. In this directory, "
  53.                 "the subdirectories 'Rexx' and 'Catalogs' will be created, if you "
  54.                 "choose to install the complete " @app-name " package."
  55.             )
  56.         )
  57.  
  58.         (set #select-install-files-prompt
  59.             (cat
  60.                 "Please select all the parts of the " @app-name " package you wish "
  61.                 "to have installed."
  62.             )
  63.         )
  64.  
  65.         (set #sample-config "Configuration example")
  66.  
  67.         (set #arexx-scripts "ARexx scripts")
  68.  
  69.         (set #german-catalog "German catalog file")
  70.  
  71.         (set options-mask 15)
  72.     )
  73. )
  74.  
  75. (set @default-dest
  76.     (askdir
  77.         (prompt #select-destdir-prompt)
  78.         (help #select-destdir-help)
  79.         (default "SYS:Tools")
  80.     )
  81. )
  82.  
  83. (set bitmask
  84.     (askoptions
  85.         (prompt #select-install-files-prompt)
  86.         (help @askoptions-help)
  87.         (choices
  88.             @app-name
  89.             (cat @app-name ".guide")
  90.             #sample-config
  91.             #arexx-scripts
  92.             #german-catalog
  93.         )
  94.         (default options-mask)
  95.     )
  96. )
  97.  
  98. (if (in bitmask 0)
  99.     (copyfiles
  100.         (dest @default-dest)
  101.         (source @app-name)
  102.         (infos)
  103.     )
  104. )
  105.  
  106. (if (in bitmask 1)
  107.     (copyfiles
  108.         (dest @default-dest)
  109.         (source (cat @app-name ".guide"))
  110.         (infos)
  111.     )
  112. )
  113.  
  114. (if (in bitmask 2)
  115.     (copyfiles
  116.         (dest @default-dest)
  117.         (source (cat @app-name ".config"))
  118.         (infos)
  119.     )
  120. )
  121.  
  122. (if (in bitmask 3)
  123.     (
  124.         (set name (tackon @default-dest "Rexx"))
  125.         (makedir name)
  126.         (copyfiles
  127.             (dest name)
  128.             (source "Rexx")
  129.             (all)
  130.         )
  131.     )
  132. )
  133.  
  134. (if (in bitmask 4)
  135.     (
  136.         (set name (tackon @default-dest "Catalogs"))
  137.         (makedir name)
  138.         (set name (tackon name "deutsch"))
  139.         (makedir name)
  140.         (copyfiles
  141.             (dest name)
  142.             (source (cat "Catalogs/deutsch/" @app-name ".catalog"))
  143.         )
  144.     )
  145. )
  146.